100
How can I change the group's caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.AddItem "Item 3"
			.Caption = "new caption"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

99
How can I get the number or count of items in a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.AddItem "Item 3"
			.AddItem .Count
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

98
How can I access an item in a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.AddItem "Item 3"
			.Item(1).Bold = True
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

97
How can I remove all items, from a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.AddItem "Item 3"
			.Clear 
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

96
How can I remove an item, from a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.AddItem "Item 3"
			.RemoveItem 1
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

95
How can I add a new item to a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Groups.Add("Group 1")
			.AddItem "Item 1",1
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

94
How can I add a new item to a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add("Group 1").AddItem "Item 1"
	End With
End Function
</SCRIPT>
</BODY>

93
How can I add a new item to a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

92
How can I get the groups as they are listed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
			.Add "Group 3"
		End With
	End With
End Function
</SCRIPT>
</BODY>

91
How can I access a group by position

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
			.Add "Group 3"
			.ItemByPos(1).Bold = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

90
How can I access a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
			.Add "Group 3"
			.Item(1).Bold = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

89
How can I clear the groups collection
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
			.Add "Group 3"
			.Clear 
		End With
	End With
End Function
</SCRIPT>
</BODY>

88
How can I remove a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
			.Add "Group 3"
			.Remove 1
		End With
	End With
End Function
</SCRIPT>
</BODY>

87
How can I add a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

86
How do I count the number of groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
			.Add "Group 3"
			.Add .Count
		End With
	End With
End Function
</SCRIPT>
</BODY>

85
How can I display pictures with a custom size, instead icons, in the shortcut bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set 1"
		.Groups.Add("Group 2").Shortcut = "Set 1"
		.Groups.Add("Group 3").Shortcut = "Set 2"
		.Groups.Add("Group 4").Shortcut = "Set 2"
		.ShortcutPicture("Set 1") = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.ShortcutPicture("Set 2") = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
		.ShortcutPictureWidth = 32
		.ShortcutPictureHeight = 32
		.ShortcutBarHeight = 32
	End With
End Function
</SCRIPT>
</BODY>

84
How can I display pictures instead icons, in the shortcut bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set 1"
		.Groups.Add("Group 2").Shortcut = "Set 1"
		.Groups.Add("Group 3").Shortcut = "Set 2"
		.Groups.Add("Group 4").Shortcut = "Set 2"
		.ShortcutPicture("Set 1") = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.ShortcutPicture("Set 2") = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
		.ShortcutBarHeight = 44
	End With
End Function
</SCRIPT>
</BODY>

83
How can I change the visual appearance of the shortcut bar, using EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ShortcutResizeBackColor = &H2000000
		.ShortcutBarSelCaptionBackColor = &H1000000
		.ShortcutBarSelBackColor = &H1000000
		.BackColorGroup = &H1000000
	End With
End Function
</SCRIPT>
</BODY>

82
How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ShortcutResizeBackColor = &H1000000
		.ExpandShortcutCount = 1
	End With
End Function
</SCRIPT>
</BODY>

81
How do I change the background color of the separator between groups and the shortcut bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ShortcutResizeBackColor = RGB(255,0,0)
		.ExpandShortcutCount = 1
	End With
End Function
</SCRIPT>
</BODY>

80
How can I change the visual appearance of the shortcut bar, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ShortcutBarSelCaptionBackColor = &H1000000
		.ExpandShortcutCount = 1
	End With
End Function
</SCRIPT>
</BODY>

79
How do I change the selection background color in the shortcut bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ShortcutBarSelCaptionBackColor = RGB(255,0,0)
		.ExpandShortcutCount = 1
	End With
End Function
</SCRIPT>
</BODY>

78
How can I change the visual appearance of the shortcut bar, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ShortcutBarSelBackColor = &H1000000
	End With
End Function
</SCRIPT>
</BODY>

77
How do I change the selection background color in the shortcut bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ShortcutBarSelBackColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>

76
How can I change the visual appearance of the shortcut bar, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ShortcutBarBackColor = &H1000000
	End With
End Function
</SCRIPT>
</BODY>

75
How do I change the background color in the shortcut bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ShortcutBarBackColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>

74
How can I programmatically change expand or collapse the shortcut bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ExpandShortcutCount = 1
	End With
End Function
</SCRIPT>
</BODY>

73
How do I change the icon for the expanding or collapsing the shortcut bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ExpandShortcutImage = 3
	End With
End Function
</SCRIPT>
</BODY>

72
How can I enable or disable resizing the shortcut bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ExpandShortcutCount = 1
		.AllowResizeShortcutBar = False
	End With
End Function
</SCRIPT>
</BODY>

71
How do I specify the height of the shortcut bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ExpandShortcutCount = 1
		.ShortcutBarHeight = 16
	End With
End Function
</SCRIPT>
</BODY>

70
How do I select a shortcut

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ExpandShortcutCount = 1
		.SelectShortcut = "Set <img>2</img>"
	End With
End Function
</SCRIPT>
</BODY>

69
How do I show or hide the shortcut bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ShowShortcutBar = True
		.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
		.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
		.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
		.ExpandShortcutCount = 1
	End With
End Function
</SCRIPT>
</BODY>

68
How do I access the groups collection
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add "Group 1"
	End With
End Function
</SCRIPT>
</BODY>

67
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.FormatAnchor(False) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
		.HighlightItemType = 0
		.HandCursor = False
		.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
	End With
End Function
</SCRIPT>
</BODY>

66
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.FormatAnchor(False) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
		.HighlightItemType = 0
		.HandCursor = False
		With .Groups.Add("Group 1")
			.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

65
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.HighlightItemType = 0
		.HandCursor = False
		.FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
		.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
	End With
End Function
</SCRIPT>
</BODY>

64
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.HighlightItemType = 0
		.HandCursor = False
		.FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
		With .Groups.Add("Group 1")
			.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

63
How can I add several pictures and icons to an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		With .Groups.Add("Group 1")
			.ItemHeight = 48
			With .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
				.Image = 2
				.CaptionFormat = 1
			End With
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

62
How can I add several pictures and icons to an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		With .Groups.Add("Group 1")
			.ItemHeight = 48
			With .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
				.Image = 2
				.CaptionFormat = 1
			End With
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

61
How can I add several pictures to an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		With .Groups.Add("Group 1")
			.ItemHeight = 48
			.AddItem("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

60
How can I add several pictures to a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		.GroupHeight = 48
		With .Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
			.Image = 2
			.CaptionFormat = 1
			.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

59
How can I add several pictures and icons to a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		.GroupHeight = 48
		.Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>").CaptionFormat = 1
	End With
End Function
</SCRIPT>
</BODY>

58
How can I add several pictures to a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		.GroupHeight = 48
		With .Groups.Add("<img>pic1</img> text <img>pic2</img>")
			.CaptionFormat = 1
			.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

57
How can I add several pictures to a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		.GroupHeight = 48
		.Groups.Add("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
	End With
End Function
</SCRIPT>
</BODY>

56
How do I force refreshing the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.Expanded = True
			.AddItem "Item 1"
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

55
How can show or hide the focus rectangle

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ShowFocusRect = False
		With .Groups.Add("Group 1")
			.Expanded = True
			.AddItem "Item 1"
		End With
	End With
End Function
</SCRIPT>
</BODY>

54
I've seen that the width of the tooltip is variable. Can I make it larger

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ToolTipWidth = 328
		.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
	End With
End Function
</SCRIPT>
</BODY>

53
How do I let the tooltip being displayed longer

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ToolTipPopDelay = 10000
		.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
	End With
End Function
</SCRIPT>
</BODY>

52
Can I change the default border of the tooltip, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(64) = &H1000000
		.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
	End With
End Function
</SCRIPT>
</BODY>

51
Can I change the background color for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.Background(65) = RGB(255,0,0)
		.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
	End With
End Function
</SCRIPT>
</BODY>

50
Does the tooltip support HTML format

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcolor>"
	End With
End Function
</SCRIPT>
</BODY>

49
Can I change the forecolor for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.Background(66) = RGB(255,0,0)
		.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
	End With
End Function
</SCRIPT>
</BODY>

48
Can I change the foreground color for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.Groups.Add("ToolTip").ToolTip = "<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>"
	End With
End Function
</SCRIPT>
</BODY>

47
Can I change the font for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.Groups.Add("ToolTip").ToolTip = "<font Tahoma>This is a bit of text that's shown when the cursor hovers the group.</font> Back to the normal font"
	End With
End Function
</SCRIPT>
</BODY>

46
Can I change the font for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ToolTipDelay = 1
		With .ToolTipFont
			.Name = "Tahoma"
			.Size = 14
		End With
		.ToolTipWidth = 364
		.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
	End With
End Function
</SCRIPT>
</BODY>

45
How do I disable showing the tooltip for all control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ToolTipDelay = 0
		.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
	End With
End Function
</SCRIPT>
</BODY>

44
How do I show the tooltip quicker
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ToolTipDelay = 1
		.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
	End With
End Function
</SCRIPT>
</BODY>

43
How do I call your x-script language

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .ExecuteTemplate("Groups.Add(`Group 1`)")
			.AddItem "Item 1"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

42
How do I call your x-script language

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Template = "BackColor = RGB(255,0,0)"
	End With
End Function
</SCRIPT>
</BODY>

41
How can I hide a tooltip when the item exceeds its area, so ... are displayed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.AllowTooltip = False
		With .Groups.Add("Group 1")
			.Expanded = True
			.AddItem "This isa very long text that should break the control in several pieces"
		End With
	End With
End Function
</SCRIPT>
</BODY>

40
How can I show a tooltip when the item exceeds its area, so ... are displayed

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.AllowTooltip = True
		With .Groups.Add("Group 1")
			.Expanded = True
			.AddItem "This isa very long text that should break the control in several pieces"
		End With
	End With
End Function
</SCRIPT>
</BODY>

39
How do I specify the distance between two groups

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BorderGroupHeight = 0
		.Groups.Add "Group 1"
		.Groups.Add("Group 2").AddItem "Item 2"
	End With
End Function
</SCRIPT>
</BODY>

38
How can I change the expand / collapse buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ExpandIcon(True) = 1
		.ExpandIcon(False) = 2
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

37
How do I enable or disable the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Enabled = False
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
	End With
End Function
</SCRIPT>
</BODY>

36
How do I hide the icons in the right side of the group, the expand / collapse buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		.DisplayExpandIcon = False
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

35
Is there any option to stop using the hand shape cursor, when the cursor hovers an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		.HandCursor = False
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HighlightItemType = 0
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

34
How do I specify the color to highlight the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HyperLinkColor = RGB(255,0,0)
		.HighlightItemType = 4
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

33
How can I expand or collapse a group when I click only its right icon
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		.ExpandOnClick = False
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HighlightItemType = 4
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

32
How do I remove the control's borders
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		.Appearance = 0
		.BorderWidth = 0
		.BorderHeight = 0
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HighlightItemType = 4
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

31
How do I specify width or the height of the control's borders
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		.Appearance = 0
		.BorderWidth = 0
		.BorderHeight = 0
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HighlightItemType = 4
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

30
How do I access the item from the point
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

29
How do I access the group from the point
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

28
How do I specify to highlight the items in the group, when the cursor hovers the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HighlightItemType = 4
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

27
How do I specify to highlight the items in the group, when the cursor hovers the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HighlightItemType = 3
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

26
How do I specify to highlight the items in the group, when the cursor hovers the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HighlightItemType = 2
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

25
How do I specify to highlight the items in the group, when the cursor hovers the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HighlightItemType = 1
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

24
How do I specify the way the control highlight the items in the group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		.HighlightItemType = 0
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

23
Is there any function to avoid painting the control while adding multiple items and groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

22
How do I decrease the delay to scroll a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.DelayScroll = 0
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.Expanded = True
		End With
		With .Groups.Add("Group 2")
			.AddItem "Item 2"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

21
How do I display icons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.SmallIcons = True
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.Groups.Add("Group 1").Image = 1
	End With
End Function
</SCRIPT>
</BODY>

20
How do I display 32x32 icons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.SmallIcons = False
		.GroupHeight = 36
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.Groups.Add("Group 1").Image = 1
	End With
End Function
</SCRIPT>
</BODY>

19
How do I specify the height of the groups

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.GroupHeight = 40
		.Groups.Add "Group 1"
		.Groups.Add "Group 2"
	End With
End Function
</SCRIPT>
</BODY>

18
How do I change the visual appearance of the groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.GroupAppearance = 1
		.Groups.Add "Group 1"
		.Groups.Add "Group 2"
	End With
End Function
</SCRIPT>
</BODY>

17
How do I change the visual appearance of the groups, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.BackColorGroup = &H1000000
		.Groups.Add "Group 1"
		.Groups.Add "Group 2"
	End With
End Function
</SCRIPT>
</BODY>

16
How do I change the background color for the groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BackColorGroup = RGB(255,0,0)
		.BackColorGroup2 = RGB(255,0,0)
		.Groups.Add "Group 1"
	End With
End Function
</SCRIPT>
</BODY>

15
How do I change the background color for the groups

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BackColorGroup = RGB(255,0,0)
		.Groups.Add "Group 1"
	End With
End Function
</SCRIPT>
</BODY>

14
How do I change the control's foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ForeColor = RGB(0,0,255)
		.ForeColorGroup = RGB(255,0,0)
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.Expanded = True
		End With
		.Groups.Add "Group 2"
	End With
End Function
</SCRIPT>
</BODY>

13
How can I change the control's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Font.Name = "Tahoma"
		.Groups.Add "Group 1"
	End With
End Function
</SCRIPT>
</BODY>

12
How do I change the control's foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ForeColor = RGB(255,0,0)
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

11
How do I change the control's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BackColor = RGB(200,200,200)
	End With
End Function
</SCRIPT>
</BODY>

10
How do I change the control's border, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Appearance = 16777216 ' &H1000000
	End With
End Function
</SCRIPT>
</BODY>

9
How do I remove the control's border
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Appearance = 0
	End With
End Function
</SCRIPT>
</BODY>

8
How do I put a picture on the center of the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 17
	End With
End Function
</SCRIPT>
</BODY>

7
How do I resize/stretch a picture on the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 49
	End With
End Function
</SCRIPT>
</BODY>

6
How do I put a picture on the control's center right bottom side

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 34
	End With
End Function
</SCRIPT>
</BODY>

5
How do I put a picture on the control's center left bottom side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 32
	End With
End Function
</SCRIPT>
</BODY>

4
How do I put a picture on the control's center top side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 1
	End With
End Function
</SCRIPT>
</BODY>

3
How do I put a picture on the control's right top corner
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 2
	End With
End Function
</SCRIPT>
</BODY>

2
How do I put a picture on the control's left top corner
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 0
	End With
End Function
</SCRIPT>
</BODY>

1
How do I put a picture on the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	End With
End Function
</SCRIPT>
</BODY>